DateOBJ  METHODS

         The global instance DateTOT controls the date defaults.

  function  GetLastYearNextCentury: byte;
  procedure SetLastYearNextCentury(Yr:byte);
  function  GetSeparator: char;
  procedure SetSeparator(Sep:char);
  procedure SetMonths(Mth1,Mth2,Mth3,Mth4,Mth5,Mth6,
                      Mth7,Mth8,Mth9,Mth10,Mth11,Mth12:strshort);
  procedure SetDays(Day0,Day1,Day2,Day3,Day4,Day5,Day6:strshort);
  function  GetLastYearNextCentury:byte;
  function  GetSeparator:char;
  function  GetMonth(Mth:byte):string;
  function  GetDay(Day:byte):string;